Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/E-G/Financial Portfolio v1.8.cpt/Financial Portfolio v1.8/background_17929.xml

Extensible Markup Language | 1991-09-30 | 12KB | 303 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>17929</id>
    <filler1>0</filler1>
    <bitmap>BMAP_18461.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3246.css" />
    <part>
        <id>1</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>388</left>
            <top>292</top>
            <right>468</right>
            <bottom>335</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Okay</name>
        <script>on mouseUpokayTotglobal origname,origvalue,origtotalput empty into orignameput empty into origvalueput empty into origtotalend mouseUp</script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>106</left>
            <top>13</top>
            <right>436</right>
            <bottom>38</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>title</name>
        <script></script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>106</left>
            <top>56</top>
            <right>338</right>
            <bottom>211</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>extend</textStyle>
        <textHeight>16</textHeight>
        <name>name</name>
        <script></script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>321</left>
            <top>56</top>
            <right>452</right>
            <bottom>211</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>extend</textStyle>
        <textHeight>16</textHeight>
        <name>value</name>
        <script>on closeFieldremovestuffaddFieldend closeFieldon exitFieldremovestuffaddFieldend exitFieldon enterInFieldremovestuffaddFieldend enterInFieldon openFieldglobal SaveTextArrows-- allow arrowKey movement in fieldsput the textArrows into SaveTextArrows -- save current value of textArrowsif not SaveTextArrows then set textArrows to trueend openField</script>
    </part>
    <part>
        <id>5</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>321</left>
            <top>211</top>
            <right>436</right>
            <bottom>237</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>total</name>
        <script></script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>268</left>
            <top>305</top>
            <right>335</right>
            <bottom>323</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>cancel</name>
        <script>on mouseUpsend mouseUp to bg field "help" -- to hide itglobal origname,origvalue,origtotalput origname into field "name"put origvalue into field "value"put origtotal into field "total"put empty into orignameput empty into origvalueput empty into origtotalvisual iris close fastset lockmessages to truego cd networthend mouseUp</script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>1</left>
            <top>0</top>
            <right>47</right>
            <bottom>46</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>2507</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Help</name>
        <script>on mouseUphelperend mouseUp</script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>62</left>
            <top>92</top>
            <right>505</right>
            <bottom>200</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>helpc</name>
        <script></script>
    </part>
    <part>
        <id>9</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>66</left>
            <top>96</top>
            <right>501</right>
            <bottom>195</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>extend</textStyle>
        <textHeight>13</textHeight>
        <name>help</name>
        <script>on mouseUpif there is a bg button "Hide Help" then send mouseUp to bg button "Hide Help"if there is a cd button "Hide Help" then send mouseUp to cd button "Hide Help"end mouseUp</script>
    </part>
    <content>
        <layer>background</layer>
        <id>9</id>
        <text>Here's where you can itemize those "little things" that make up your particular assets or liabilities. Click in the field on the left and type in your appropriate asset or liability, then click on the proper line on the field on the right to type in its value.  The program will automatically add commas and dollar signs where needed and show a total when you click "Okay".  You will then be brought back to the "Net Worth" card.</text>
    </content>
    <name>details</name>
    <script>on openCard -- store original fields and values in globalsglobal origname,origvalue,origtotalput field "name" into orignameput field "value" into origvalueput field "total" into origtotalend openCardon idleset scroll of field name to scroll of field valueend idleon OkayTotremovestuffaddfieldreplacestuffput bg field "total" into totglobal liner2,typerif typer is "asset" thenput tot into line liner2 of bg field assetnum of cd "networth"elseput tot into line liner2 of bg field liabnum of cd "networth"end ifsend mouseUp to bg field "help" -- to hide itglobal creatingvisual iris close fastset lockmessages to truego cd networthend OkayToton addFieldif the target is empty then exit addFieldput 0 into total -- initialize the totalrepeat with lineNum = 1 to number of lines of bg field "value"put line lineNum of bg field "value" into theLine -- get contents of each lineif first char of theLine is "$" then put empty into first char of theLineif theLine is empty then next repeat-- don't want to add an existing 'total' lineif "Total" is in theLine then delete line lineNum of bg field "value" -- ∆else if theLine is not a number thenbeep-- select the whole offending line and exit:put (number of chars of line 1 to lineNum of bg field "value") + 1¬into endCharselect char (endChar - length(theLine)) to endChar of bg field "value"answer "This needs to be a real number."exit to HyperCard -- stop handlerselse add theLine to total -- keep a running totalend repeat-- display the totalput total into bg field "total" -- ∆restoreTextArrowsend addFieldon restoreTextArrowsglobal SaveTextArrowsif SaveTextArrows ≠ empty thenset the textArrows to SaveTextArrows -- restore textArrowsput empty into SaveTextArrows -- clean upend ifend restoreTextArrowson removestuff -- remove commas & $ signsrepeat with y=1 to the number of lines in field "value"if line y of field "value" is empty then next repeat-- don't mess with lines only with return & otherwise emptyput line y of field "value" into ccput strip("$,",cc) into line y of field "value"end repeatend removestuffon replaceStuff -- add commas & $ signsrepeat with y=1 to the number of lines in field "value"if line y of field "value" is empty then next repeat-- don't mess with lines only with return & otherwise emptyput formatNum(line y of field "value",1) into line y of field "value"end repeatput formatNum(field "total",1) into field "total"end replacestuff</script>
</background>